home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL08.PRO < prev    next >
Text File  |  1986-10-07  |  210b  |  12 lines
  1. /* Program 8 */
  2. /*
  3.   Goals to enter are on page 37 of the manual.
  4. */
  5.  
  6. predicates
  7.     isletter(char)
  8.  
  9. clauses
  10.     isletter(Ch) if Ch <= 'z' and 'a' <= Ch.
  11.     isletter(Ch) if Ch <= 'Z' and 'A' <= Ch.
  12.